home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_PRO / WCLIB.ZIP;1 / WCLIBC.ZIP / MCITEST.WCM < prev    next >
Encoding:
Text File  |  1993-03-06  |  647 b   |  22 lines
  1. //==============================================================
  2. // MCITest - A WinCmd program that sends command strings using
  3. // the SendMCIString function
  4. // Copyright (c) 1993 Douglas Boling
  5. //==============================================================
  6.  
  7. string = AskBox ("Enter MCI String", " ")
  8. if (a+string == a)
  9.    string = EXIT
  10. while (string <> exit) do
  11.    answer = SendMCIString (string)
  12.    if (substr (answer,0 ,5) == "ERROR")
  13.       say answer getmcierrorstring (substr (answer, 6, 10))
  14.    else
  15.       say answer 
  16.  
  17.    string = AskBox ("Enter MCI String", string)
  18.    if (a+string == a)
  19.       string = EXIT
  20. end
  21. exit
  22.